home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Component Software / FileFlex 2.0.3.sit / FileFlex 2.0.3 / FileFlex-XFCN / FileFlex™ / stack_-1.xml < prev   
Extensible Markup Language  |  1996-11-16  |  9KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2928</cardID>
  8.     <listID>4015</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>416</width>
  14.         <height>240</height>
  15.     </cardSize>
  16.     <script>-- Copyright 1992-1996 David Gewirtz under license to Component Software Corp.-- All rights reserved worldwide.-- This file corresponds to FileFlex v2.0.2, Wrapper scripts for HyperCard-------------------------------------------------------------------------------------------------------------------------- Following are the only wrapper scripts you should consider modifying.  If, for-- some reason, you choose to place the FileFlex engine somewhere other than the default-- folder, then you'll need to modify the following wrapper scripts to locate and open-- FileFlex.------------------------------------------------------------------------------------------------------------------------on DBInitPlatformstart using stack "FileFlex‚Ñ¢"  --<---------------------------- Be sure your pathspec is correctend DBInitPlatformon DBClosePlatformstop using stack "FileFlex‚Ñ¢"  --<---------------------------- Be sure your pathspec is correctend DBClosePlatform-------------------------------------------------------------------------------------------------------------------------- Following here are the individual wrapper functions that control access to-- the FileFlex engine.  We strongly recommend you change these only with-- great care.------------------------------------------------------------------------------------------------------------------------Function DBVersionreturn FileFlex("0")end DBVersionFunction DBCopyrightreturn FileFlex("999")end DBCopyrightFunction DBOpenSessionglobal gDBActive1030if gDBActive1030 <> "true" thenput "true" into gDBActive1030return FileFlex("1")elsereturn "0"end ifend DBOpenSessionFunction DBCloseSessionglobal gDBActive1030if gDBActive1030 = "true" thenput "" into gDBActive1030return FileFlex("2")elsereturn "0"end ifend DBCloseSessionFunction DBUse dbName, pathspecDBCheckActiveif the paramCount = 1 thenreturn FileFlex("3",dbName)elsereturn FileFlex("3",dbName,pathspec)end ifend DBUseFunction DBDatabaseExists dbName, pathspecDBCheckActiveif the paramCount = 1 thenreturn FileFlex("43",dbName)elsereturn FileFlex("43",dbName,pathspec)end ifend DBDatabaseExistsFunction DBClose dbIDDBCheckActivereturn FileFlex("4",dbID)end DBCloseFunction DBSelect dbIDDBCheckActivereturn FileFlex("5",dbID)end DBSelectFunction DBCloseAllDBCheckActivereturn FileFlex("6")end DBCloseAllFunction DBUseIndex indexName, pathspecDBCheckActiveif the paramCount = 1 thenreturn FileFlex("7",indexName)elsereturn FileFlex("7",indexName, pathspec)end ifend DBUseIndexFunction DBCloseIndex indexIDDBCheckActivereturn FileFlex("8",indexID)end DBCloseIndexFunction DBSelectIndex indexIDDBCheckActivereturn FileFlex("9",indexID)end DBSelectIndexFunction DBGo recnumDBCheckActivereturn FileFlex("10",recnum)end DBGoFunction DBTopDBCheckActivereturn FileFlex("11")end DBTopFunction DBBottomDBCheckActivereturn FileFlex("12")end DBBottomFunction DBSeek seekExprDBCheckActivereturn FileFlex("13",seekExpr)end DBSeekFunction DBSkip numDBCheckActivereturn FileFlex("14",num)end DBSkipFunction DBDeleteRecs startRec, endRecDBCheckActivereturn FileFlex("15",startRec, endRec)end DBDeleteRecsFunction DBRecallRecs startRec, endRecDBCheckActivereturn FileFlex("16",startRec, endRec)end DBDeleteRecsFunction DBZapRecs startRec, endRecDBCheckActivereturn FileFlex("17",startRec, endRec)end DBZapRecsFunction DBPackDBCheckActivereturn FileFlex("18")end DBPackFunction DBCountDBCheckActivereturn FileFlex("19")end DBCountFunction DBRecordDeleted recNumDBCheckActivereturn FileFlex("20", recNum)end DBRecordDeletedFunction DBCurrRecNumDBCheckActivereturn FileFlex("21")end DBCurrRecNumFunction DBSum numFieldNameDBCheckActivereturn FileFlex("22",numFieldName)end DBSumFunction DBAverage numFieldNameDBCheckActivereturn FileFlex("22", numFieldName) / FileFlex("19")end DBAverageFunction DBGetMemo memoField, encryptFlag, keyDBCheckActiveif the paramCount = 1 thenreturn FileFlex("24", memoField)elsereturn FileFlex("24", memoField, encryptFlag, key)end ifend DBGetMemoFunction DBWriteMemo memoField, memoVal, encryptFlag, keyDBCheckActiveif the paramCount <= 2 thenreturn FileFlex("25",memoField, memoVal)elsereturn FileFlex("25",memoField, memoVal, encryptFlag, key)end ifend DBWriteMemoFunction DBGetFieldByName fieldName, decryptFlag, keyDBCheckActiveif the paramCount  = 1 thenreturn FileFlex("26",fieldName)elsereturn FileFlex("26",fieldname, decryptFlag, key)end ifend DBGetFieldByNameFunction DBGetFieldByNum fieldName, decryptFlag, keyDBCheckActiveif the paramCount  = 1 thenreturn FileFlex("27",fieldName)elsereturn FileFlex("27",fieldname, decryptFlag, key)end ifend DBGetFieldByNumFunction DBGetCurrRecVal containerType, decryptList, keyDBCheckActiveif the paramCount = 1 thenreturn FileFlex("28",containerType)elsereturn FileFlex("28", containerType, decryptList, key)end ifend DBGetCurrRecValFunction DBListFieldsDBCheckActivereturn FileFlex("29")end DBListFieldsFunction DBMaxRecsDBCheckActivereturn FileFlex("47")end DBMaxRecsFunction DBWriteRec containerType, recNum, p0, p1, p2if the paramCount = 2 thenreturn FileFlex("30",containerType,recNum)else if the paramCount = 3 thenreturn FileFlex("30",containerType, recNum, p0)else if the paramCount = 4 thenreturn FileFlex("30",containerType, recNum, p0, p1)elsereturn FileFlex("30",containerType, recNum, p0, p1, p2)end ifend DBWriteRecFunction DBCreateIndex indexName, indexExpr, unique, safetyDBCheckActivereturn FileFlex("31",indexName, indexExpr, unique, safety)end DBCreateIndexFunction DBReindex indexIDDBCheckActivereturn FileFlex("32", indexID)end DBReindexFunction DBIndexExpr indexIDDBCheckActivereturn FileFlex("44", indexID)end DBIndexExprFunction DBBuildSeekExprDBCheckActiveput "FileFlex(" & quote & "45" & quote into theFuncrepeat with i = 1 to the paramCountput "," & quote & param(i) & quote after theFuncend repeatput ")" after theFuncreturn value(theFunc)end DBBuildSeekExprFunction DBListIndexFields indexID, delimDBCheckActivereturn FileFlex("46", indexID, delim)end DBListIndexFieldsFunction DBCreate dbName, numFields, fields, safetyDBCheckActivereturn FileFlex("33", dbName, numFields, fields, safety)end DBCreateFunction DBCheckIndex indexIDDBCheckActivereturn FileFlex("34", indexID)end DBCheckIndexFunction DBQuery exprDBCheckActivereturn FileFlex("35",expr)end DBQueryFunction DBLocate expr-- NOTE: DBLocate is obsolete and will be eliminated in future releases-- DBLocate has been replaced by DBQueryDBCheckActivereturn FileFlex("35",expr)end DBLocateFunction DBCurrDBNumDBCheckActivereturn FileFlex("36")end DBCurrDBNumFunction DBEncrypt theString, keyDBCheckActivereturn FileFlex("38",theString, key)end DBEncryptFunction DBDecrypt theString, keyDBCheckActivereturn FileFlex( "39", theString, key)end DBDecryptFunction DBFindMemo memoField, theStringDBCheckActivereturn FileFlex("40",memoField, theString)end DBFindMemoFunction DBConvertCRLF theString, theOptionDBCheckActiveif the paramCount = 1 thenreturn FileFlex("41",theString)elsereturn FileFlex("41",theString, theOption)end ifend DBConvertCRLFFunction DBPlatformDBCheckActivereturn FileFlex("42")end DBPlatformFunction DBTranslateChars string, tableDBCheckActivereturn FileFlex("48",string, table)end DBTranslateCharsFunction DBSetSortOrder orderglobal gDBWorldSortglobal gDBSortOrderif order = EMPTY thenput EMPTY into gDBWorldSortelseput "1" into gDBWorldSortput order into gDBSortOrderend ifreturn 0end DBSetSortOrderFunction DBSetCaseTables upperTable, lowerTableglobal gDBWorldCaseglobal gDBWorldUpper, gDBWorldLowerif (upperTable = EMPTY or lowerTable = EMPTY) thenput EMPTY into gDBWorldCaseelseput "1" into gDBWorldCaseput upperTable into gDBWorldUpperput lowerTable into gDBWorldLowerend ifreturn 0end DBSetCaseTablesFunction DBUpper sDBCheckActivereturn FileFlex("49", s)end DBUpperFunction DBLower sDBCheckActivereturn FileFlex("50", s)end DBLowerFunction DBCheckActiveglobal gDBActive1030if gDBActive1030 <> "true" thenput DBOpenSession() into dummyend ifend DBCheckActive-- These routines should never be called by the user.  They simply-- assign and gather values of the global variables.  They are here so-- we can test the global value interface to the host application--Function DBSetGlobal globName, globValreturn FileFlex("202", globName, globVal)end DBSetGlobalFunction DBGetGlobal globNamereturn FileFlex("201", globName)end DBGetGlobal</script>
  17.     <background id="2785" file="background_2785.xml" name="" />
  18.     <card id="2928" file="card_2928.xml" marked="false" name="" owner="2785" />
  19. </stack>
  20.